home *** CD-ROM | disk | FTP | other *** search
- // Copyright (C) 1997-2002 Alias|Wavefront,
- // a division of Silicon Graphics Limited.
- //
- // The information in this file is provided for the exclusive use of the
- // licensees of Alias|Wavefront. Such users have the right to use, modify,
- // and incorporate this code into other products for purposes authorized
- // by the Alias|Wavefront license agreement, without fee.
- //
- // ALIAS|WAVEFRONT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
- // INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
- // EVENT SHALL ALIAS|WAVEFRONT BE LIABLE FOR ANY SPECIAL, INDIRECT OR
- // CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
- // DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
- // TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
- // PERFORMANCE OF THIS SOFTWARE.
- //
- //
- // Alias|Wavefront Script File
- // MODIFY THIS AT YOUR OWN RISK
- //
- // Creation Date: 14 January 1999
- // Author: sw
- //
- //
- // Procedure Name:
- // alignSurfaceToolScript
- //
- // Description:
- // create wrapper around the alignSurface command
- //
- // Input Arguments:
- // 0 ==> do the command.
- // 1 ==> show the action option box
- // 2 ==> return the command
- // 3 ==> show tool option box
- // 4 ==> enter the tool
- //
- // Return Value:
- // None.
- //
-
- global proc alignSurfaceToolSetup( int $forceFactorySettings, string $goToTool )
- {
- global int $gStartWithAutoComplete;
- if( $forceFactorySettings || !`optionVar -ex alignSurfaceEuc` ) {
- optionVar -iv alignSurfaceEuc 0;
- }
- if( $forceFactorySettings || !`optionVar -ex alignSurfaceLac` ) {
- optionVar -iv alignSurfaceLac $gStartWithAutoComplete;
- }
- if( "" != $goToTool ) {
- scriptCtx -e -euc `optionVar -q alignSurfaceEuc` $goToTool;
- scriptCtx -e -lac `optionVar -q alignSurfaceLac` $goToTool;
- }
- }
-
- global proc alignSurfaceValues ( string $toolName )
- {
- performAlign 3 "Surface" $toolName;
- scriptCtxCommonValues( $toolName );
- }
-
- global proc alignSurfaceProperties()
- {
- scriptCtxCommonProperties;
- }
-
- proc createAlignSurfaceContext( string $tool )
- {
- if( ! `scriptCtx -exists $tool` ) {
- alignSurfaceToolSetup( 0, "" );
- scriptCtx -i1 "alignSurface.xpm"
- -title "Align Surfaces Tool"
- -bcn "alignSurface"
-
- -exitUponCompletion `optionVar -q alignSurfaceEuc`
- -totalSelectionSets 1
- -expandSelectionList true
- -fcs ("alignSurfaceToolScript 0")
-
- -setNoSelectionPrompt ("Select two NURBS surfaces or isoparms " +
- "on surfaces for aligning.")
- -setSelectionPrompt ("Select the second NURBS surface or " +
- "an isoparm on a NURBS surface to align.")
-
- -setAutoToggleSelection true
- -setAutoComplete `optionVar -q alignSurfaceLac`
- -showManipulators true
- -setSelectionCount 2
-
- -nurbsSurface true
- -isoparm true
- $tool;
- }
- }
-
- global proc string performAlignSurface( int $action,
- string $goToTool )
- {
- return performAlign( $action, "Surface", $goToTool );
- }
-
- global proc string alignSurfaceToolScript( int $setToTool )
- //
- // Description :
- // 0 ==> do the command.
- // 1 ==> show the action option box
- // 2 ==> return the command
- // 3 ==> show tool/action option box
- // 4 ==> enter the tool/do the command
- {
- string $tool = "";
- if( $setToTool > 2 ) {
- if( !`optionVar -q modelWithToolAlignSurface` ) {
- $setToTool = 4 - $setToTool;
- }
- else {
- $tool = "alignSurfaceContext";
- createAlignSurfaceContext $tool;
- }
- }
- return scriptToolScript( "performAlignSurface", $setToTool, $tool );
- }
-